FileCopyError:
    On Error Goto 0
    Select Case Err().Number
        Case 53 'File not found
            MsgBox(CStr(Err().Number) & "[md]" & Err().Description, _
              vbOKOnly, Me.Text)
        Case 57 'Device I/O error
            MsgBox(CStr(Err().Number) & "[md]" & Err().Description, _
              vbOKOnly, Me.Text)
        Case 61 'Disk full
            MsgBox(CStr(Err().Number) & "[md]" & Err().Description, _
              vbOKOnly, Me.Text)
        Case Else 'For unanticipated Errors
            MsgBox(CStr(Err().Number) & "[md]" & Err().Description, _
              vbOKOnly, Me.Text)
    End Select
